home *** CD-ROM | disk | FTP | other *** search
/ Inventor Labs: Technology / INVENTORLABS_TECHNOLOGY.BIN / mac / FILES / SHARED.CST / 00028_Script_Frame Funct Parent Script < prev    next >
Text File  |  1997-07-24  |  2KB  |  68 lines
  1. --o:Funct FRAME
  2.  
  3. property pCastNum, pPictSprite, pStartSprite, pQTsprite, pSnd, pActive, pFrameLabel, pReturnFrame, pAreaHotSpotID
  4. property pCursorList, pPullOutSprite1, pRelatedHSid
  5.  
  6. global gModeManager, gInterfaceMgrObj, gAreaManagerObj, gUtilityObj, gReturnFrame, gCurrMovie
  7.  
  8. ------------------------------------------------------------------------------------------------------------------ò
  9. on birth me
  10.   
  11.   return ( me )
  12.   
  13. end birth
  14. ------------------------------------------------------------------------------------------------------------------ò
  15. on mInit me, aLineFromDataBase, aPICTsprite
  16.   
  17.   
  18.   set pPictSprite = aPICTsprite
  19.   set pFrameLabel = item 4 of aLineFromDataBase
  20.   set pRelatedHSid = item 1 of aLineFromDataBase
  21.   set pCursorList = [21:#RETURN,22:#RETURN]
  22.   
  23. end
  24. ------------------------------------------------------------------------------------------------------------------ò
  25. on mDiscloseFunctionalityType me
  26.   
  27.   return( #Frame )
  28.   
  29. end
  30. ------------------------------------------------------------------------------------------------------------------ò
  31. on mActivate me
  32.   
  33.   cursor 4
  34.   mUpdateReturnFrame(gUtilityObj, label(pFrameLabel))
  35.   go pFrameLabel
  36.   mClearToolMenu ( gInterfaceMgrObj )
  37.   mSetCursors (gUtilityObj, pCursorList) 
  38.   mDisplayClickText(gInterfaceMgrObj, pRelatedHSid)
  39.   cursor -1
  40.   
  41. end
  42. ------------------------------------------------------------------------------------------------------------------ò
  43. on mClose me
  44.   
  45.   mClearAllText (gUtilityObj)
  46.   mUnSetCursors(gUtilityObj) 
  47.   
  48. end
  49. ------------------------------------------------------------------------------------------------------------------ò
  50. on mClickEvent me
  51.   
  52.   mClose( me )
  53.   mChangeMode( gModeManager, #Return)
  54.   
  55. end mClickEvent
  56. ------------------------------------------------------------------------------------------------------------------ò
  57. on mDisclose me
  58.   
  59.   --put "Frame"
  60.   
  61. end 
  62. ------------------------------------------------------------------------------------------------------------------ò
  63. on mSetAreaHotSpotID me, aAreaHotSpotID
  64.   
  65.   set pAreaHotSpotID = aAreaHotSpotID
  66.   
  67. end mSetAreaHotSpotID
  68. ------------------------------------------------------------------------------------------------------------------ò